home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / visulztn / sphinx / sphinx.lha / examples / mire.f < prev   
Encoding:
Text File  |  1993-03-27  |  770 b   |  34 lines
  1. c****HP    first line
  2. c     program mire(para)
  3. c****SG    first line
  4.       program mire
  5.       character *140 para
  6.       character *140  mess
  7.       character ima(1024*1024)
  8.       integer sizex,sizey
  9.       logical redr,greenr,bluer
  10. C
  11.       print*,"external program example: mire"
  12. c**** SG external parameter
  13.       call getarg(1,para)
  14. c
  15.       call sphinx_get_para
  16.      *(sizex,sizey,redr,greenr,bluer,para,mess)
  17.       print*,"image size:",sizex,sizey
  18.       print*,"input output banks:",redr,greenr,bluer
  19.       print*,"message zone:",mess(1:30)
  20. C
  21.       do 1 i=1,sizey
  22.       iad=(i-1)*sizex
  23.       n=0
  24.       do 1 j=1,sizex
  25.       iad=iad+1
  26.       n=n+1
  27.       if(n.gt.255)n=0
  28.       ima(iad)=char(n)
  29.     1 continue
  30. C
  31.       call sphinx_write(para,ima,ima,ima)
  32.       stop
  33.       end
  34.